<%Response.Buffer=True If Session("login")=True then %> <% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn If Request.Form("act")="Editing" Then If (Request.Form("txtdate")="" OR Request.Form("txttime")="" OR Request.Form("txtplace")="" OR Request.Form("txtpackage")="") Then Response.Write("
Form not completed fill,click a back button to check it out u'r form
") Else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "Select * from reservation where r_id="&Request.Form("id"), ObjConn, 3,3 ObjRs("r_date")=Request.Form("txtdate") ObjRs("r_time")=Request.Form("txttime") ObjRs("r_place")=Request.Form("txtplace") ObjRs("r_package")=Request.Form("txtpackage") ObjRs.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Your reservation has been update") Response.Write("") End If Else %> <% Set ObjRs=server.CreateObject("ADODB.Recordset") objRs.open "select * from reservation where r_id="&Request.QueryString("id"), objConn,0,1 %> ADMIN ROOM

 

EDIT RESERVATION


*only pending reservation can update this reservation.

<% set ObjRs3=Server.CreateObject("ADODB.Recordset") ObjRs3.Open "Select * from author where a_id="&session("level"), ObjConn, 0,1 %>
date: " size=52>
time: " size=52>
place: " size=52>
package: " size=52>
status: <%=objRs("r_status")%> 
reference: <%=objRs("r_reference")%> 
">

  

<% ObjRs3.Close Set objRs3 = Nothing ObjConn.Close Set ObjConn = Nothing End If Else Response.Redirect("HOME.asp") End If %>